home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example13_3.AMOS / example13_3.amosSourceCode < prev    next >
AMOS Source Code  |  1993-02-25  |  456b  |  19 lines
  1. Rem EXAMPLE13_3.Amos 
  2. '
  3. '
  4. Rem Hardware scrolling using screen offset 
  5. '
  6. '
  7. Rem unpack a previously spacked pic to screen 0 and wait for screen refresh
  8. Hide : Unpack 10 To 0 : Wait Vbl 
  9. '
  10. '
  11. Rem do a for next loop for 640 pixels
  12. For A=1 To 640
  13. '
  14. '
  15. Rem  the first 0 is the screen to be operated on 
  16. Rem the A is the variable from the for next loop, starts at 1 ends at 640
  17. Rem the last 0 is the y offset see next example. 
  18. Screen Offset 0,A,0
  19. Wait Vbl : Next A